home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 4 / Assassins 4 (1999)(Weird Science).iso / tools_to_use / fix_utils / idefxcd32guide / idefixcd32guide-inst < prev    next >
Text File  |  1997-12-03  |  20KB  |  729 lines
  1. ; $VER: "IDEfix-CD32-Emulator-Support-Guide" - Installer script V1.02 (03. 12. 1997)
  2. ; By Thomas Rehbein
  3.  
  4. (if (= @language "deutsch")
  5.   (set #loc 1)
  6.  (set #loc 0)
  7. )
  8.  
  9. (set #ag-default "SYS:C")
  10. (set #mv-default "SYS:Utilities")
  11.  
  12. (if (= #loc 1)
  13.   (set #guide-name "IDEfixCD32Emul.deu.guide")
  14.  (set #guide-name "IDEfixCD32Emul.eng.guide")
  15. )
  16. (set #guidestd-name "IDEfixCD32Emul.guide")
  17. (set #readme-name "IDEfixCD32Guid.readme")
  18. (set #installd-name "IDEfixCD32Guide-InstDisk")
  19.  
  20. (set #reqch-path "SYS:C/RequestChoice")
  21. (set #reqchold-path "SYS:C/RequestChoiceOld.bak")
  22.  
  23. (set #startup-path "SYS:S/StartUp-Sequence")
  24.  
  25. (set #newstartup-dest "SYS:S/IDEfixCD32Guide-StartUp")
  26.  
  27. (set #reqchold-text "\"RequestChoiceOld.bak\"")
  28. (set #execom-text "\"Execute S:IDEfixCD32Guide-StartUp\"")
  29. (set #newstartup-text "\"IDEfixCD32Guide-StartUp\"")
  30.  
  31. ; ========================================================================
  32.  
  33. (if (= #loc 1)
  34.   (
  35.    (set #no-help " Hier ist keine Hilfe vorhanden.")
  36.  
  37.    (set #oldvexists-text
  38.      (cat "\n\nHast Du auf Deinem Rechner momentan auch"
  39.           " den "@app-name" V1.01 (Erste öffentlich Version) installiert?"
  40.      )
  41.    )
  42.  
  43.    (set #deloldv-text
  44.      (cat "\n\nHierbei handelt es sich um eine etwas erweiterte und"
  45.           " veränderte Version. Ich schlage vor, die alte Version"
  46.           " zu löschen. Stimmst Du zu?\n\n"
  47.           "(Siehe Hilfe für mehr Infos!)"
  48.      )
  49.    )
  50.  
  51.    (set #deloldv-help
  52.      (cat " Die alte Version wird nicht mehr benötigt. Beim Installieren"
  53.           " dieser neuen Version kann es vorkommen, dass Teile der alten"
  54.           " Version auf dem Datenträger verbleiben, was nicht unbedingt"
  55.           " erwünscht ist, nicht wahr?\n\n Wenn Du zustimmst, wird das Skript"
  56.           " abgebrochen. Du solltest dann im \"ReadMe\" nachschauen,"
  57.           " welche Dateien bei der Deinstallation gelöscht werden müssen."
  58.           " Diese Dateien sollten dann auch gelöscht werden. :-)\n\n"
  59.           " Wenn Dir die alte Version (bzw. Teile davon)"
  60.           " nichts ausmacht, kann auch ruhig mit dem Skript fortgefahren"
  61.           " werden."
  62.      )
  63.    )
  64.  
  65.    (set #goon-text "\n\nOkay, weiter geht's... :-)")
  66.  
  67.    (set #welcome-text
  68.      (cat "\n\nHiermit wird der "@app-name" V1.02 (03. 12. 1997)"
  69.           " installiert.\n\nEs besteht nun gleich die Möglichkeit,"
  70.           " Anzeigeprogramm(e) und Zielverzeichnis zu wählen!"
  71.      )
  72.    )
  73.  
  74.    (set #agandmv-text
  75.      (cat "\n\nBesitzt Du sowohl den Guide-Viewer \"AmigaGuide\" als"
  76.           " auch \"MultiView\"?"
  77.      )
  78.    )
  79.  
  80.    (set #agandmv-help
  81.      (cat " Wenn Du 'glücklicher' Besitzer beider Programme bist, kann"
  82.           " eventuell die Benutzerfreundlichkeit beim Booten erhöht"
  83.           " werden (Mehr dazu gleich!)."
  84.      )
  85.    )
  86.  
  87.    (set #gno-text
  88.      (cat "\nDu hast die Möglichkeit, zwischen 2 Varianten zu wählen,"
  89.           " die sich mehr oder weniger auf die Benutzerfreundlichkeit"
  90.           " beim Booten auswirken:\n"
  91.      )
  92.    )
  93.  
  94.    (set #gno-help
  95.      (cat " Das ist eine reine Geschmacksfrage! ;-)\n\n"
  96.           " Wenn Du es magst, dass Du Dich beim Booten zwischen den beiden"
  97.           " Guide-Viewern entscheiden kannst, wähle die 1. Variante"
  98.           " (Du hast übrigens nicht nur die Möglichkeit, zwischen"
  99.           " beiden Viewern zu wählen, sondern auch gar keinen zu wählen"
  100.           " und damit den "@app-name" erst gar nicht"
  101.           " anzeigen zu lassen!)!\n\n"
  102.           " Wenn Du davon nichts hälst und lieber einen 'festen',"
  103.           " permanenten Viewer bevorzugst, wähle Variante 2!"
  104.      )
  105.    )
  106.  
  107.    (set #which-text "\n\nWie heisst Dein Guide-Viewer?")
  108.  
  109.    (set #viewerpath-text
  110.      (cat "Bitte wähle nun den kompletten Pfad für"
  111.           " Dein Anzeigeprogramm "
  112.      )
  113.    )
  114.  
  115.    (set #destdir-text
  116.      (cat "Bitte wähle das Zielverzeichnis für"
  117.           " den "@app-name" aus!"
  118.      )
  119.    )
  120.  
  121.    (set #destdir-help
  122.      (cat " Um den Überblick zu behalten, sollte für den Guide ein"
  123.           " separates Verzeichnis angelegt werden. Diese Vorgehensweise"
  124.           " vereinfacht außerdem eine eventuelle Deinstallation des Guides,"
  125.           " die zu diesem Zeitpunkt noch manuell durchgeführt werden"
  126.           " müsste!\n\nBeispiel-Verzeichnis: \"SYS:S/IDEfixCD32Guide\".\n\n"
  127.           "Es wird dringend empfohlen, solch ein Verzeichnis"
  128.           " einzurichten!\n\n"
  129.      )
  130.    )
  131.  
  132.    (set #reqchinst-text
  133.      (cat "\n\nNun wird \"RequestChoice\" (V40.2) ins \"C\"-Verzeichnis"
  134.           " installiert. Dies ist wichtig, wenn Du vorhin beide Viewer"
  135.           " und die 'Auswahlmöglichkeit' gewählt hast. Aber auch, wenn dies"
  136.           " nicht zutreffen sollte, ist die neue Version sicherlich nichts"
  137.           " Schlechtes. :D\n\nBemerkungen:\n"
  138.           " Eine eventuell ältere Version wird in"
  139.           " "#reqchold-text" umbenannt.\nEinige kleine Texte zur neuen"
  140.           " Version werden ebenfalls 'installiert', welche man nicht"
  141.           " ignorieren sollte! :-)"
  142.      )
  143.    )
  144.  
  145.    (set #reqchok-text
  146.      (cat "\n\nDu warst anscheinend schneller als ich! ;-)"
  147.           " Du hast bereits die neue Version von \"RequestChoice\""
  148.           " installiert!\n\nHerzlichen Glückwunsch! 0=)"
  149.      )
  150.    )
  151.  
  152.    (set #editseq-text
  153.      (cat "\nDamit der Guide kurz vor dem Start des CD32-Emulators"
  154.           " aufgerufen werden kann, muss in die StartUp-Sequence"
  155.           " folgende Zeile eingefügt werden\n(Direkt vor dem Pfad"
  156.           " Deines CD32-Emulators):\n\n"#execom-text"\n\n"
  157.           "Möchtest Du die StartUp-Sequence jetzt gleich"
  158.           " oder erst später MANUELL ändern?\n\n"
  159.           "(Siehe Hilfe für mehr Informationen!)"
  160.      )
  161.    )
  162.  
  163.    (set #editseq-help
  164.      (cat " In diese neue StartUp-Sequence mit dem"
  165.           " Namen "#newstartup-text", welche durch den"
  166.           " \"Execute\"-Befehl ausgeführt wird, werden alle"
  167.           " für den Aufruf des "@app-name"s"
  168.           " wichtigen Befehle hineingeschrieben!\n\n Wähle \"Jetzt\","
  169.           " um die StartUp-Sequence jetzt gleich zu editieren!"
  170.           " Dafür wird dann der Editor \"Ed\" benutzt. Falls sich"
  171.           " dieser nicht im \"SYS:C\"-Verzeichnis befindet, kannst Du "
  172.           " den richtigen Pfad wählen oder aber Dir einen ganz anderen"
  173.           " Texteditor aussuchen!\n\n Wählst Du \"Später\", muss"
  174.           " die StartUp-Sequence nach der Installation geändert werden!"
  175.      )
  176.    )
  177.  
  178.    (set #editseqok-text
  179.      (cat "\n\nFolgende Zeile muss eingefügt werden (Direkt vor dem"
  180.           " Pfad Deines CD32-Emulators):\n\n"#execom-text"\n\n"
  181.           "Alles klar? Auf geht's... ;-)"
  182.      )
  183.    )
  184.  
  185.    (set #badtexted-text
  186.      (cat "Konnte den Editor \"Ed\" nicht im \"SYS:C\"-Verzeichnis"
  187.           " finden! Bitte wähle jetzt einen geeigneten Texteditor aus!"
  188.      )
  189.    )
  190.  
  191.    (set #notexted-text
  192.      (cat "\n\nDu hast leider überhaupt keine Datei ausgewählt!\n\n"
  193.           "Bitte ändere die StartUp-Sequence nach der Installation!"
  194.      )
  195.    )
  196.  
  197.    (set #nicehint-text
  198.      (cat "\nKleiner Hinweis zum Schluss\n"
  199.           "---------------------------\n\n"
  200.           "Du kannst statt "#execom-text" auch folgende Variante"
  201.           " benutzen:\n\n\"Run >NIL: Execute S:IDEfixCD32Guide-StartUp\"\n\n"
  202.           "Nachdem Du die 'normale' Variante getestet hast,"
  203.           " kannst Du ja mal diese ausprobieren und schauen,"
  204.           " was passiert!\nVielleicht gefällt es Dir besser... ;-)"
  205.      )
  206.    )
  207.  
  208.    (set #exitremind-text
  209.      (cat "\n\nBitte vergiss nicht, in die StartUp-Sequence"
  210.           " die Zeile\n"#execom-text"\n"
  211.           "direkt vor dem Pfad Deines CD32-Emulators einzufügen!"
  212.      )
  213.    )
  214.  
  215.    (set #exit-text
  216.      (cat "\n\nUnd jetzt viel Spaß mit dem Guide wünscht Dir\n\n"
  217.           "Thomas Rehbein\n<Tommy@SpyBox.shnet.org>! ;-)"
  218.      )
  219.    )
  220.   )
  221.  
  222. ; ------------------------------------------------------------------------
  223.  
  224.  (
  225.   (set #no-help " Sorry, no help available.")
  226.  
  227.   (set #oldvexists-text
  228.     (cat "\n\nDid you already install the "@app-name" V1.01"
  229.          " (First public release) on your system?"
  230.     )
  231.   )
  232.  
  233.   (set #deloldv-text
  234.     (cat "\n\nThis is a new version that has been extended. It differs"
  235.          " from the old one, especially with reference to file names."
  236.          " I suggest that you remove the old version. Do you agree?\n\n"
  237.          "(See Help for more information!)"
  238.     )
  239.   )
  240.  
  241.   (set #deloldv-help
  242.     (cat " The old version is no more necessary. After installation of this"
  243.          " new version parts of the old version might still be on your"
  244.          " disk. I think you don't want that, don't you?\n\n If you agree"
  245.          " the script will be aborted. By looking into"
  246.          " the \"ReadMe\" you should find out which files have to be"
  247.          " deleted on deinstallation. These files should be"
  248.          " removed. :-)\n\n If you think the described situation"
  249.          " doesn't matter you can go on with the installation."
  250.     )
  251.   )
  252.  
  253.   (set #goon-text "\n\nOkay, let's go on... :-)")
  254.  
  255.   (set #welcome-text
  256.     (cat "\n\nThis script will install the "@app-name" V1.02"
  257.          " (03. 12. 1997).\n\nNext you can choose your guide viewer(s)"
  258.          " and your destination directory!"
  259.     )
  260.   )
  261.  
  262.   (set #agandmv-text "\n\nDo you have both \"AmigaGuide\" and \"MultiView\"?")
  263.  
  264.   (set #agandmv-help
  265.     (cat " If you have both programs the comfortability on bootup can be"
  266.          " improved (More information follow!)."
  267.     )
  268.   )
  269.  
  270.   (set #gno-text
  271.     (cat "\nNow you can choose between 2 variants that will influence"
  272.          " the comfortability on bootup:\n"
  273.     )
  274.   )
  275.  
  276.   (set #gno-help
  277.     (cat " It's just a 'matter of taste'! ;-)\n\n"
  278.          " If you like the idea to be able to choose between the two"
  279.          " guide viewers, select the 1st variant"
  280.          " (Note that you also have the possibility to select none of the"
  281.          " guide viewers. In that case the "@app-name" wouldn't be"
  282.          " shown!)!\n\n"
  283.          " If you prefer using one permanent viewer select variant 2!"
  284.     )
  285.   )
  286.  
  287.   (set #which-text "\n\nWhich is your guide viewer?")
  288.  
  289.   (set #viewerpath-text
  290.     (cat "Please select the complete path of your guide viewer ")
  291.   )
  292.  
  293.   (set #destdir-text
  294.     (cat "Select the destination directory for the "@app-name"!")
  295.   )
  296.  
  297.   (set #destdir-help
  298.     (cat " You should create a separate directory for the guide,"
  299.          " otherwise you might lose control due to a great amount"
  300.          " of files in different directories (E. g. the"
  301.          " \"S\"-directory)! Besides, in this way a possible"
  302.          " deinstallation of the guide that you would have to make"
  303.          " manually will be easier.\n\nExample drawer:"
  304.          " \"SYS:S/IDEfixCD32Guide\".\n\nIt is highly"
  305.          " recommended to use such a directory!\n\n"
  306.     )
  307.   )
  308.  
  309.  
  310.   (set #reqchinst-text
  311.     (cat "\n\nNow \"RequestChoice\" (V40.2) will be copied into"
  312.          " the \"C\"-directory. This is significant if you have selected"
  313.          " both viewers and the 'Choice' option. However, if you don't"
  314.          " have done so it's surely not bad to install the newest"
  315.          " version. :D\n\nNote:\nAn older version will be renamed"
  316.          " to "#reqchold-text".\nBesides, some documents which you"
  317.          " shouldn't ignore will be copied, too! :-)"
  318.     )
  319.   )
  320.  
  321.   (set #reqchok-text
  322.     (cat "\n\nCongratulations!\n\nYou already have installed the new version"
  323.          " of \"RequestChoice\"! 0=)"
  324.     )
  325.   )
  326.  
  327.   (set #editseq-text
  328.     (cat "\nThe guide should be shown before the CD32-Emulator starts."
  329.          " For that purpose the following line has to be added to the"
  330.          " StartUp-Sequence\n(Before the path"
  331.          " of your CD32-Emulator):\n\n"#execom-text"\n\n"
  332.          "Do you want to edit the StartUp-Sequence now or"
  333.          " later MANUALLY?\n\n"
  334.          "(See Help for more information!)"
  335.     )
  336.   )
  337.  
  338.   (set #editseq-help
  339.     (cat " In this new StartUp-Sequence "#newstartup-text" that will be"
  340.          " executed by the \"Execute\"-command will be inserted all commands"
  341.          " necessary for starting the "@app-name"!\n\n"
  342.          " Select \"Now\" to edit the StartUp-Sequence right now!"
  343.          " The editor \"Ed\" will be used for that. If it is not in your"
  344.          " \"SYS:C\"-directory you can choose the right path or a complete"
  345.          " different editor!\n\n If you select \"Later\" you have to edit"
  346.          " the StartUp-Sequence after the installation!"
  347.     )
  348.   )
  349.  
  350.   (set #editseqok-text
  351.     (cat "\n\nThe following line has to be added (Before the"
  352.          " path of your CD32-Emulator):\n\n"#execom-text"\n\n"
  353.          "Let's get to work... ;-)"
  354.     )
  355.   )
  356.  
  357.   (set #badtexted-text
  358.     (cat "Couldn't find the editor \"Ed\" in your \"SYS:C\"-drawer!"
  359.          " Please select an editor of your choice!"
  360.     )
  361.   )
  362.  
  363.   (set #notexted-text
  364.     (cat "\n\nYou didn't select anything!\n\n"
  365.          "Please edit the StartUp-Sequence afterwards!"
  366.     )
  367.   )
  368.  
  369.   (set #nicehint-text
  370.     (cat "\nHint\n"
  371.          "----\n\n"
  372.          "Instead of using "#execom-text" you can also try this"
  373.          " variant:\n\n\"Run >NIL: Execute S:IDEfixCD32Guide-StartUp\"\n\n"
  374.          "After you've tested the 'normal' variant you can try this one.\n"
  375.          "Maybe you like it better... ;-)"
  376.     )
  377.   )
  378.  
  379.   (set #exitremind-text
  380.     (cat "\n\nDon't forget to add the line\n"#execom-text"\n"
  381.          "to the StartUp-Sequence (Before the path of your CD32-Emulator)!"
  382.     )
  383.   )
  384.  
  385.   (set #exit-text
  386.     (cat "\n\nThomas Rehbein\n<Tommy@SpyBox.shnet.org>\n\n"
  387.          "wishes you a lot of fun with the guide! ;-)"
  388.     )
  389.   )
  390.  )
  391. )
  392.  
  393. ; ========================================================================
  394.  
  395. (set #oldvexists
  396.   (askbool
  397.     (prompt #oldvexists-text)
  398.     (help #no-help)
  399.   )
  400. )
  401.  
  402. (if (= #oldvexists 1)
  403.   (
  404.    (set #deloldv
  405.      (askbool
  406.        (prompt #deloldv-text)
  407.        (help #deloldv-help)
  408.        (if (= #loc 1)
  409.          (choices "Ja, alte Version löschen" "Nein, weiter")
  410.         (choices "Yes, remove old version" "No, go on")
  411.        )
  412.      )
  413.    )
  414.    (if (= #deloldv 1)
  415.      (exit (quiet))
  416.     (message #goon-text)
  417.    )
  418.   )
  419.  (message #goon-text)
  420. )
  421.  
  422. (welcome)
  423.  
  424. (complete 0)
  425.  
  426. (message #welcome-text)
  427.  
  428. (set #agandmv
  429.   (askbool
  430.     (prompt #agandmv-text)
  431.     (help #agandmv-help)
  432.   )
  433. )
  434.  
  435. (complete 5)
  436.  
  437. (if (= #agandmv 1)
  438.   (
  439.    (set #gno
  440.      (askchoice
  441.        (prompt #gno-text)
  442.        (help #gno-help)
  443.        (if (= #loc 1)
  444.          (choices "Auswahlmöglichkeit zwischen beiden Viewern" "'Fester' Viewer")
  445.         (choices "Choice between the two viewers" "One permanent viewer")
  446.        )
  447.      )
  448.    )
  449.    (if (= #gno 1)
  450.      (set #agandmv 0)
  451.    )
  452.   )
  453. )
  454.  
  455. (if (= #agandmv 0)
  456.   (
  457.    (set #which
  458.      (askbool
  459.        (prompt #which-text)
  460.        (help #no-help)
  461.        (choices "AmigaGuide" "MultiView")
  462.      )
  463.    )
  464.    (if (= #which 1)
  465.      (set #viewer "AmigaGuide")
  466.     (set #viewer "MultiView")
  467.    )
  468.   )
  469. )
  470.  
  471. (complete 10)
  472.  
  473. (if (= #agandmv 0)
  474.   (
  475.    (if (= #loc 1)
  476.      (set #vieweradd-text
  477.        (cat "\""#viewer"\" aus!")
  478.      )
  479.     (set #vieweradd-text
  480.       (cat "\""#viewer"\"!")
  481.     )
  482.    )
  483.    (set #viewer-path
  484.      (askfile
  485.        (prompt #viewerpath-text #vieweradd-text)
  486.        (help @askfile-help)
  487.        (if (= #which 1)
  488.          (default #ag-default)
  489.         (default #mv-default)
  490.        )
  491.      )
  492.    )
  493.   )
  494.  (
  495.   (if (= #loc 1)
  496.     (set #vieweradd-text
  497.       (cat "\"AmigaGuide\" aus!")
  498.     )
  499.    (set #vieweradd-text
  500.      (cat "\"AmigaGuide\"!")
  501.    )
  502.   )
  503.   (set #viewer1-path
  504.     (askfile
  505.       (prompt #viewerpath-text #vieweradd-text)
  506.       (help @askfile-help)
  507.       (default #ag-default)
  508.     )
  509.   )
  510.   (if (= #loc 1)
  511.     (set #vieweradd-text
  512.       (cat "\"MultiView\" aus!")
  513.     )
  514.    (set #vieweradd-text
  515.      (cat "\"MultiView\"!")
  516.    )
  517.   )
  518.   (set #viewer2-path
  519.     (askfile
  520.       (prompt #viewerpath-text #vieweradd-text)
  521.       (help @askfile-help)
  522.       (default #mv-default)
  523.     )
  524.   )
  525.  )
  526. )
  527.  
  528. (complete 25)
  529.  
  530. (set #dest-dir
  531.   (askdir
  532.     (prompt #destdir-text)
  533.     (help #destdir-help @askdir-help)
  534.     (default "SYS:S")
  535.     (newpath)
  536.     (disk)
  537.   )
  538. )
  539.  
  540. (set @default-dest #dest-dir)
  541.  
  542. (complete 30)
  543.  
  544. (copyfiles
  545.   (source #guide-name)
  546.   (dest @default-dest)
  547.   (infos)
  548. )
  549.  
  550. (rename (tackon @default-dest #guide-name) (tackon @default-dest #guidestd-name))
  551. (rename
  552.   (cat (tackon @default-dest #guide-name) ".info")
  553.   (cat (tackon @default-dest #guidestd-name) ".info")
  554. )
  555.  
  556. (copyfiles
  557.   (source #readme-name)
  558.   (dest @default-dest)
  559.   (infos)
  560. )
  561.  
  562. (copyfiles
  563.   (source "ReqCh.lha")
  564.   (dest @default-dest)
  565. )
  566.  
  567. (copyfiles
  568.   (source "ReqCh.readme")
  569.   (dest @default-dest)
  570. )
  571.  
  572. (copyfiles
  573.   (source @icon)
  574.   (dest @default-dest)
  575.   (infos)
  576. )
  577.  
  578. (copyfiles
  579.   (source #installd-name)
  580.   (dest @default-dest)
  581.   (infos)
  582. )
  583.  
  584. (complete 50)
  585.  
  586. (set #reqch-ver
  587.   (getversion #reqch-path)
  588. )
  589.  
  590. (if (< #reqch-ver 2621442)
  591.   (
  592.    (message #reqchinst-text)
  593.    (run "LhA x ReqCh.lha RAM:")
  594.    (if (exists #reqch-path)
  595.      (rename #reqch-path #reqchold-path)
  596.    )
  597.    (copyfiles
  598.      (source "ReqCh.readme")
  599.      (dest #ag-default)
  600.    )
  601.    (copyfiles
  602.      (source "RAM:ReqCh")
  603.      (dest #ag-default)
  604.      (all)
  605.    )
  606.    (delete "RAM:ReqCh#?"
  607.      (all)
  608.    )
  609.   )
  610.  (message #reqchok-text)
  611. )
  612.  
  613. (complete 65)
  614.  
  615. (set #editseq
  616.   (askbool
  617.     (prompt #editseq-text)
  618.     (help #editseq-help)
  619.     (if (= #loc 1)
  620.       (choices "Jetzt" "Später")
  621.      (choices "Now" "Later")
  622.     )
  623.   )
  624. )
  625.  
  626. (if (= #editseq 1)
  627.   (
  628.    (message #editseqok-text)
  629.    (if (exists "C:Ed")
  630.      (run "C:Ed" #startup-path)
  631.     (
  632.      (set #texted
  633.        (askfile
  634.          (prompt #badtexted-text)
  635.          (help @askfile-help)
  636.          (default "SYS:")
  637.        )
  638.      )
  639.      (if (= (fileonly #texted) "")
  640.        (
  641.         (message #notexted-text)
  642.         (set #editseq 0)
  643.        )
  644.       (
  645.        (message #editseqok-text)
  646.        (run #texted #startup-path)
  647.       )
  648.      )
  649.     )
  650.    )
  651.   )
  652. )
  653.  
  654. (complete 80)
  655.  
  656. (set #guide-path (tackon @default-dest #guidestd-name))
  657.  
  658. (if (= #agandmv 0)
  659.   (textfile
  660.     (dest #newstartup-dest)
  661.     (if (= #which 1)
  662.       (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  663.               "; By Thomas Rehbein\n"
  664.               "; Your guide viewer: \"AmigaGuide\"\n\n"
  665.               "\""#viewer-path"\" \""#guide-path"\""
  666.       )
  667.      (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  668.              "; By Thomas Rehbein\n"
  669.              "; Your guide viewer: \"MultiView\"\n\n"
  670.              "Assign LIBS: SYS:Classes Add\n"
  671.              "Assign LOCALE: SYS:Locale\n"
  672.              "Assign HELP: LOCALE:Help DEFER\n\n"
  673.              "\""#viewer-path"\" \""#guide-path"\""
  674.      )
  675.     )
  676.   )
  677.  (textfile
  678.    (dest #newstartup-dest)
  679.    (if (= #loc 1)
  680.      (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  681.              "; By Thomas Rehbein\n"
  682.              "; Your guide viewer: \"AmigaGuide\"/\"MultiView\"/None\n\n"
  683.              "C:RequestChoice >NIL: TITLE \"IDEfix-CD32-Emulator-Hilfs-Guide - Nachfrage\" BODY \"Welcher Guide-Viewer soll benutzt werden?\" GADGETS \"AmigaGuide\" \"MultiView\" \"Abbruch\"\n\n"
  684.              "IF VAL $ReqChGG EQ 1\n"
  685.              "\""#viewer1-path"\" \""#guide-path"\"\n"
  686.              "EndIF\n\n"
  687.              "IF VAL $ReqChGG EQ 2\n"
  688.              "Assign LIBS: SYS:Classes Add\n"
  689.              "Assign LOCALE: SYS:Locale\n"
  690.              "Assign HELP: LOCALE:Help DEFER\n"
  691.              "\""#viewer2-path"\" \""#guide-path"\"\n"
  692.              "EndIF\n\n"
  693.              "UnSet ReqChGG"
  694.      )
  695.     (append "; $VER: \""@app-name"\" - StartUp-Sequence V1.0 (18. 07. 1997)\n"
  696.             "; By Thomas Rehbein\n"
  697.             "; Your guide viewer: \"AmigaGuide\"/\"MultiView\"/None\n\n"
  698.             "C:RequestChoice >NIL: TITLE \"IDEfix-CD32-Emulator-Support-Guide - Request\" BODY \"Which guide viewer should be used?\" GADGETS \"AmigaGuide\" \"MultiView\" \"Abort\"\n\n"
  699.             "IF VAL $ReqChGG EQ 1\n"
  700.             "\""#viewer1-path"\" \""#guide-path"\"\n"
  701.             "EndIF\n\n"
  702.             "IF VAL $ReqChGG EQ 2\n"
  703.             "Assign LIBS: SYS:Classes Add\n"
  704.             "Assign LOCALE: SYS:Locale\n"
  705.             "Assign HELP: LOCALE:Help DEFER\n"
  706.             "\""#viewer2-path"\" \""#guide-path"\"\n"
  707.             "EndIF\n\n"
  708.             "UnSet ReqChGG"
  709.     )
  710.    )
  711.  )
  712. )
  713.  
  714. (complete 95)
  715.  
  716. (protect #newstartup-dest "-e +s")
  717.  
  718. (complete 98)
  719.  
  720. (message #nicehint-text)
  721.  
  722. (complete 100)
  723.  
  724. (if (= #editseq 0)
  725.   (exit #exitremind-text #exit-text)
  726. )
  727.  
  728. (exit #exit-text)
  729.